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ABSTRACT: 


The VAX-11 MACRO assembler translates RACRO~3e source code into object 
modules for input to the VAX-11 LINKER 
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MACSINTOUT WRITE CODE T 
v04=000 DECLARATIONS -SEP=19 
0 48 .SBTTL DECLARATIONS 
p ; INCLUDE FILES: 
8 20 : MACROS: 
4 5 3 
0 24 $MAC_GENVALDEF 
000 «5 $MAC~ INTCODDEF 
900 38 $MAC~CTLFLGDEF 
8 5 
00000000 60 
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4 02: 
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COMMON VAX-11 MACRO SYMBOLS 
DEFINE INT. FILE CODES 
sFLAG BITS POINTED TO BY R11 
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-SBTTL MACSINTOUT_LW WRITE TO INT. BUFFER IN LONGWORDS 


3:44 
; FUNCTIONAL DESCRIPTION: 


; THE INTERMEDIATE FILE. 
; CALLING SEQUENCE: 


PUSHL LWN 

PUSHL LWN=1 

PUSHL LW! 

BSBW MACSINTOUT_N_LW 
: INPUTS: 

LONGWORDS ON THE STACK 
: OUTPUTS: 


LONGWORDS POPPED FROM STACK AND 


MACSINTERR_3_LW:: 
Btc™ #FLGSV EXPOPT,(R11),.41 
MACSINTOUT 3_LW:: 
MOUL #14,R1 


BSBB QUT LW 


MACSINTERR_2_LW:: 
#FLGSV_EXPOPT,(R11),.41 


MACSINTOUT 2_LW:: 
MOUL” #10,R1 

SSBB OUT’ LW 

.BYTE 2 
MACSINTERR_1_LW:: 

#FLGSV_EXPOPT, (R11),.+1 

MACSINTOUT 1_LW:: 

MOUL” #6,R1 

BSBB out _Lw 

.BYTE 
OUT_LW: 

suBL3 R1,W*MACSGL_INTCNT,R2 

BSBW §MACSOUTFRAME 

SUBL3. RI COS MACS OL INTCNT,R2 
10$: MOVL Reus -WeRACSGL- INTCNT 

MOVB 

MOVB = RO, (R333 

MOVZBL eee he RT 

POPL RO 


THIS ROUTINE IS CALLED TO PUT LONGWORDS FROM THE STACK INTO 


PUT IN INTER. BUFFER. 


D0 NOT ALLOW EXPRESSION OPT. 
BYTE COUNT TOTAL 

JOIN COMMON CODE 

3T0 STORE 3 LONGWORDS 


D0 NOT ALLOW EXPRESSION OPT. 


BYTE COUNT TOTAL 
O COMMON CODE 
:TO STORE 2 LONGWORDS 


D0 NOT ALLOW EXPRESSION OPT. 


BYTE COUNT TOTAL 
:GO TO COMMON CODE 
:TO STORE 1 BYTE 


TF GIR ROOM IN BUFFER 
NO--WRITE THE punter 
;UPDATE COUNT IN R2 
UPDATE INT. COUNT 
‘STORE COUNT BYTE 
i STORE ACTION BYTE 
3GET LONGWORD COUNT AND CLEAR IMMEDIATE CALL 
;POP OFF RETURN ADDRESS 


MACSINTOUT 
V0s-000 


RACSINTOUT_L 


ooh 


co S28Eb=198s OF:28:86 ERACKOssReSiRrOut RAR; 1 


3GET NEXT LONGWORD 
;LOOP FOR ALL 
;RETURN TO CALLER 


EE 
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4042000 MACSINTOUT_WD WRITE WORD (2 BYTES) TO IN g- iets 7 9 $:93 MACRO. SRCJINTOUT.MAR; 1 ° 
04 : .SBTTL MACSINTOUT_WD WRITE WORD (2 BYTES) TO INT. FILE 
4 125 ;++ 
4 $ + FUNCTIONAL DESCRIPTION: 
48 128: THIS ROUTINE IS CALLED TO OUTPUT ONE WORD (2 BYTES) TO 
04 ? : THE INTERMEDIATE FILE. 
O94 1 : CALLING SEQUENCE: 
8 1 : : MOVZBL M#ACTION,RO 
04 134 ; MOVZWL DATA,R 
48 135: MACSINTOUT_WD 
048 136: 
004 137 ;:-- 
0048 138 
0048 139 MACSINTOUT WD:: 
52. OO00'CF 046 C3 0048 140 SUBL3 #4,W°MACSGL_INTCNT,R2  ;SEE IF ROOM IN BUFFER 
08 14 OO4E 141 BGTR 1 IF G 
6D 19 05 148 BSBB_ - MACSOUTFRAME tNO=-WRITE THE BUFFER 
52 O000'CF 04 C 0052 14 SUBL3 #4,W°MACSGL_INTCNT.R2 ©; UPDATE R2 
0000'CF 52 00 0058 144 10$: MOVL Re, *W°MACSGL_INTCNT SUPDATE INT. COUNT 
89 04 90 005d 145 MOVB #4.(R9)4 :COUNT IS 4 BYTES 
89 50 90 0060 146 MOVB  RO.(R9)+ ‘STORE ACTION BYTE 
89 51 BO 0063 147 MOVW  R1.(R9)¢4 SSTORE DATA WORD 
05 0066 148 RSB 
0067 149 
0067 150 ;++4 
0067 131 : FUNCTIONAL DESCRIPTION: 
0067 138 : THIS ROUTINE IS CALLED TO OUTPUT A ‘STORE IMMEDIATE * BYTE 
0067 «154: COMMAND TO THE INTERMEDIATE FILE, AND ONLY STORE YTE 
0067 155: RATHER THAN A WHOLE LONGWORD. NOTE THAT THE PASS 7 PROCESSOR 
0067 «156: MUST NOT CARE THAT THERE IS ONLY A BYTE. 
0067 «157: 
0067 158 ; INPUTS: 
0067 +159: 
0067 +160: RO BYTE TO STORE 
0067 161: 
0067 168 — 
0067 16 
0067 164 MACSINTOUT_BY:: 
7E OO000'CF 03 C3 0067 165 SUBL3 #3, W*MACSGL_INTCNT,=(SP) ;SEE_IF yBgom 
08 14 006D 166 G 
aE 19 0 6F 616 BSBB_  MACS$OU ENQm=MRITE BUFFER 
6— O000'cF 03 C3 0071 168 SUBL3. #3," Macsele INTCNT, (SP) :UPDATE ST ACK 
0000' CF BE D0 0077 169 10$:  MOVL ( P)+, W°MACSGL_INTCNT | UPDATE COUN 
89 03 90 O007c 170 MOVB (RO) + [STORE BYTE COUNT 
89 ¢6 90 OO7F 171 MOVB Fints STIB, (R9)+ SSTORE ACTION CODE 
89 50 30 Be 1% move RO, (R9)+ :STORE DATA BYTE 


MACSINTOUT WRITE CODE TO INTERMEDIATE B UFFERY SEP=1984 02:06:09 VAX/VMS Macre 404-00 Page 
404.000 MACSINTOUT_X WRITE ONLY AETION CODE TO I "Or ET obe 94:06: 9? MACRO. SRC INTOUT.MAR: 1 ° 
0 6 125 ~SBTTL MACSINTOUT_X WRITE ONLY ACTION CODE TO INT. FILE 
8 6 148 p++ 
178 ; FUNCTIONAL DESCRIPTION: 
6 6 180: THIS ROUTINE IS CALLED TO OUTPUT ONLY AN ACTION CODE. IT 
086 181; S USED WHEN AN ACTION CODE TAKES NO OTHER PARAMETERS 
bp ? : ¢ § (FOR INSTANCE, INT$_CHKL). 
0 & 4 : INPUT PARAMETERS: 
0 3 1 : : RO ACTION CODE 
086 187 : 
00 188 :-- 
0086 189 
0086 190 MACSINTOUT_X:: 
7E OOOO'CF 02 C3 0086 191 SuBL 3° #2,W°MACSGL_INTCNT,-(SP) ;SEE IF ROOM IN BUFFER 
8 14 008C 198 10$ ii R YES 
F 19 O08E 19 Beas MACSOUTF RAME NO=-OUTPUT CURRENT {BUFFER 
6E 0000'°CF 2 C3 0090 194 SUBL3 #2 SoMAcSeL INTCNT, (SP) TADJUST VALUE ON STA 
QO0O'CF 8E& D0 0096 195 10$ MOVL (SP)+,W*MACSGL_INTCNT SET NEW BUFFER COUN 
89 08 90 0098 196 MOVE #2, (R9)+ :SET BYTE COUNT IN ou FFER 
89 50 90 009E 197 MOVB —RO, (RO) + :SET ACTION INTO BUFFER 
05 OOAl 198 RSB 


a ee ee a 


ee ———— — 
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y04-000 MACSINTOUT_N PREPARE TO WRITE 'N' BYTES ety 9¢ 06:09 MACRO. SRCJINTOUT.MAR; 1 “as 
i 0 .SBTTL MACSINTOUT_N PREPARE TO WRITE 'N' BYTES TO INT. FILE 
OA ; p++ 
OA 3 i FUNCTIONAL DESCRIPTION: 
0A 5: THIS ROUTINE PREPARES FOR SOMEONE TO EMIT 'N’ BYTES TO THE 
OA 06 ; INTERMEDIATE FILE. 
Q0h 08 : INPUT PARAMETERS: 
GOA 10 : RO NUMBER OF BYTES IN FRAME, INCLUDING COUNT BYTE 
00A le — a 
O0A 1 
OOA 14 MACSINTOUT_N:: 
7E O000'CF 50 C3 OOA 215 SUBL3. RO,W*MACSGL_INTCNT,-(SP); :1$ THERE ENOUGH ROOM IN THE BUFFER? 
08 14 OOAS 216 10$ YES 
13. 10 QOAA 217 BSBB_ - MACSOUTFRAME ‘NOW cURITE BUFFER TO VIRT. MEMORY 
6E O000'CF 50 C3 OOAC 218 SUBL3 RO,W°MACSGL SINTCNT,(SP) ADJUST THE COUNT ON THE STACK 
0000'CF BE DO OOB2 219 10%:  MOVL (SP)+ W*MACSGL. INTCNT UPDATE THE BUFFER COUNT 
89 50 30 0087 220 OVE RO, (RO) + ISTORE THE COUNT BYTE IN THE BUFFER 
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v04-000 COPY FRAME FROM INT. BUFFER tM Rat. MEM 5-SEP=1984 01:48:36 CMACRO.SRCJINTOUT.MAR; 1 ( 4 
OBB ; .SBTTL COPY FRAME FROM INT. BUFFER TO VIRT. MEMORY | 
0BB 5 3+ 
088 g : : FUNCTIONAL DESCRIPTION: 
OBB 8; THIS ROUTINE 1S CALLED WHEN THE INT. BUFFER DOES Not HAVE ENOUGH 
OBB 93 ROOM FOR THE NEXT FRAME. THE COUNT IS FIXED IN THE CURRENT BLOCK, 
OBB 0; A NEW BLOCK OF MEMORY IS ALLOCATED, AND THE POINTER AND COUNTER 
Q00BB «231 ; ARE SET UP FOR IT. 
OBB 3 ; 
0BB j-- 
BB 4 
BB 5 MACSSETFRAME ; : 
3 BB 00BB 236 PUSHR #*M<RO,R1> ;SAVE REGISTERS 
ao O0BD 37 FRAM_O :JUST ALLOCATE THE BLOCK AND SETUP 
OOBF 339 MACSOUTF RAME ; : 
03 BB OOBF 240 PUSHR #*M<RO,R1> ;PRESERVE ALL REGISTERS USED 
48 10 0c) 341 aon i BSBB MACSF IXFRAME ‘FIX BYTE COUNT IN CURRENT BLOCK 
50 000013F4 8F 00 00C3 $i =" MOVL HINTSK BUFSIZ,RO :GET THE SIZE OF A BUFFER 
0000'CF 50 DO OOCA 344 MOVL gNACss L_INTCNT ‘RESET THE COUNTER 
OC AO OF OOCF 45 PUSHAB ror :STACK # BYTES WE REALLY NEED 
50 SE 00 O0D2 246 MOVL SP, RO. ‘SAVE PTR TO COUNT 
O000'CF DF 00D5 247 PUSHAL W*MACSGL_INTFRMPT + STACK PTR TO RESULT LONGWORD 
50 DD 6009 248 PUSHL RO :STACK ADDRESS OF SI 
00000000'GF 02 FB 0008 249 CALLS #2,G*LIBSGET_VM SALLOCATE VM Fon NEXT BLOCK 
2350 €9 O0EF2 250 BLBC ~—RO, 208 *BRANCH IF ALLOC ERROR 
BE DS OOES $31 TSTL  (SP)+ 'CLEAR COUNT FROM STACK 
50 OO00'CF DO 00E7 3 MOVL Oo MACSGL INTFRMPT,RO | :GET PTR TO THE BLOCK 
0004'DF 60 O& OOEC 25 INSQUE (RO) awe MACSGL_INTQUE+4 : INSERT AT TAIL OF QUEUE 
59 08 AO SE OOF1 254 MOVAB BROS R POINT TO THE f9LINT WORD 
89 D4 OOFS 255 CLRL (R9) + [CLEAR IT AND SET UP RO AS POINTER 
0000'CF 59 00001390 8F C1 OOF? 256 ADDL3 HINTS _BUFWRN,R9, w*MACSGL INTWRNPT SEI UP WARNING LIMIT 
BA 0101 937 POPR #M<ROTR ESTORE REGISTERS 
00 68 O07 €E5 193 58 BBCC  #FLG$V_EXPOPT,(R11),.+1 :DO NOT ALLOW EXPRESSION OPT. 
95 0107 359 RSB sALL DON 
FEFS' 31 0108 360 20$: BRW MACSERR_NOMEM ‘REPORT NO MEMORY TODAY AND QUIT 
0108 26¢ :¢ : 
0108 263 ; FUNCTIONAL DESCRIPTION: 
0108 65 ; THIS ROUTINE UPDATES THE BYTE COUNT IN THE CURRENT FRAME OF | 
108 66 : THE INT. BUFFER. 
S108 568 
i$ 3 
108 0 MACSFIXFRAME:: 
50 O000'CF pO 01 2 71 MOVL_ W*MACSGL_INTFRMPT,RO §;POINT TO THE CURRENT BLOCK 
51 9 50 ¢3 011 7 SUBL3 RO,RO,R ‘FIGURE # BYTES USED IN IT 
08 ao «651 sCOksiéséE 114 27 SUBL3 #12,R1,8(RO) ;DON'T COUNT THE OVERHEAD BYTES 
119 27% AND STORE COUNT IN OVH COUNT WORD 
0000'CF 08 AO CO g19 75 ADDL2 8(RO),W*MACSGL_INTPAGRQ ;UPDATE COUNT OF BYTES USED 
05 O11F 7 RSB 
0120 7 
120 278 END 
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$eoececee ecceee ~-+ 
! Psect synopsis ! 
terre ae ee ca a ew ee + 

PSECT name Allocation PSECT No. Attributes 


“( 0.) 00 ( 0.) NOPIC USR CON ABS LCL 
( 288:) 01¢ 1:) NOPIC USR CON REL GBL 
+ 


22 
So 


- ABS. 00000 OSHR NOEXE NORD NOWRT NOVEC BYTE 
MACSRO_CODE_P1 000001 SHR EXE RD NOWRT NOVEC LONG 


+ 
H Performance indicators ! 


euwnsecese emer e eee mec era wen $ 


Lapsed Time 

Initialization 36 68 00 00-03 00:00:01.03 
Command processing 126 0:00:00. eb eae 
ass 142 00:00:01.59 00: 899-16 
Symbol table sort ! 00 bs oF 3 00:00:01.5 
Pass 2 6 00:00:00.52 B88 08°89 
Symbol table output 20 00 BF a8" 43 00:00:00.11 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 390 00:00:02.80 00:00:13.76 


The working set Limit was 1050 pages. 

16236 bytes (32 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 235 non-local and 7 local symbols. 
278 source lines were read in Pass 1, produc ing 12 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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! Macro Library statistics : 
Goewweeoeeoeeoeeoeeeeeceoecs 


Macro Library name Macros defined 
.$255$DUA28: CMACRO.OBJ JMACRO.MLB; 1 3 

$255$DUA28:CSYSLIBISTARLET.MLB;2 0 
TOTALS (all Libraries) 
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205 GETS were required to define 3 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: INTOUT/OBJ=OBJ$: INTOUT MSRC$: INTOUT/UPDATE=(ENHS: INTOUT)+LIB$:MACRO/LIB 
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